home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #097 (1990-10)(Amiga User Group Deutschland e.V.).zip
/
Franz PD Disk #097 (1990-10)(Amiga User Group Deutschland e.V.).adf
/
Amiga-Astro
/
Neptunb
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1989-07-03
|
4KB
|
107 lines
REM *** Neptun ***
PALETTE 0,0,0,0
GOTO Neptun2:
Neptun:
Neptunroutine:
LINE(0,80)-(600,80)
BVERH=0.1
CIRCLE(320,50),24.75,1,,,BVERH
BVERH=BVERH*1
PALETTE 1,0.4,0.5,1
PAINT(320,50),1
RETURN
Neptun2:
CLS
GOSUB Neptunroutine
PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT
PRINT
PRINT" Umlaufbahn"
PRINT"Der Neptun ist ca. 4686 Mio. km von der Sonne entfernt."
PRINT"Die Bahnexzentrizität beträgt 0,9% .Der Planet bewegt sich"
PRINT"auf seinem Weg um die Sonne mit einer Bahngeschwindigkeit"
PRINT"von durchschnittlich 5,43 km/s.Neptun ist mit 1° 46´ gegen"
PRINT"die Ekliptik geneigt."
PRINT" Rotation"
PRINT"Die Eigenrotation des Neptun wurde mit 15 Std. 14 Min. "
PRINT"errechnet. Nach einem neuen Meßverfahren soll aber eine"
PRINT"Umdrehung ca. 23 Std. dauern."
PRINT"M:Menü I:More Info"
Taste122:
AQ$=INKEY$
IF AQ$<>"" THEN AQ$=UCASE$(AQ$)
IF AQ$="M" THEN Hauptmenu
IF AQ$="I" THEN Neptun4
GOTO Taste122
Neptun4:
CLS
GOSUB Neptunroutine
PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT
PRINT
PRINT" Neptuns Atmosphäre"
PRINT"Auch die Neptunatmosphäre besteht wahrscheinlich aus Wasserstoff"
PRINT",Helium,Methan und Ammoniak."
PRINT"In den oberen Atmosphärenschichten dürften Temperaturen "
PRINT"um -220°C herschen-weiter unten in der Stratosphäre etwa-130°C"
PRINT" Kern des Neptun"
PRINT"Astronomen vermuten das der feste Teil Neptuns aus einem"
PRINT"16000 km im Durchmesser großen aus Eis ,Gestein und Metallen"
PRINT"bestehender Kern ist. Ebenfalls wie beim Uranus wird darum"
PRINT"ein 8000 km dicker Eispanzer vermutet. Umhüllt wird das ganze"
PRINT"wahrscheinlich von einer 9000 km dicken Atmosphären."
PRINT"M:Menü I:More Info"
Taste124:
AR$=INKEY$
IF AR$<>"" THEN AR$=UCASE$(AR$)
IF AR$="M" THEN Hauptmenu
IF AR$="I" THEN Neptun6
GOTO Taste124
Neptun6:
CLS
GOSUB Neptunroutine
PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT
PRINT
PRINT" Monde des Neptun:"
PRINT"Der Neptun hat drei Monde. Triton hat einen Durchmesser"
PRINT"von 4200 km und ist 355 000 km vom Neptun entfernt."
PRINT"Auffalend an Triton ist das seine Umlaufbahn mit 160°"
PRINT"gegen den Äqator des Neptun geneigt ist - ein einmaliger"
PRINT"Fall im Sonnensystem - .Das heißt das Triton Neptun vertikal"
PRINT"umkreist bei einer horizontalen Stellung des Neptunäqators."
PRINT"Außerdem wurde bei Triton eine dünne Atmosphäre aus"
PRINT"Stickstoff und Methan festgestellt. Bei den geringen "
PRINT"Temperaturen dürfte das Methan im festen und der Stickstoff"
PRINT"im flüssigen Agregatzustand anzutreffen sein. Der Luft-"
PRINT"druck auf Triton beträgt 0,1 bar(Erde=1024bar)."
PRINT"M:Menü I:More Info"
Taste128:
AU$=INKEY$
IF AU$<>"" THEN AU$=UCASE$(AU$)
IF AU$="M" THEN Hauptmenu
IF AU$="I" THEN Neptun7
GOTO Taste128
Neptun7:
CLS
GOSUB Neptunroutine
PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT
PRINT
PRINT"Der zweite Mond des Neptun ist Nereide. er hat einen"
PRINT"Durchmesser von 400 km und ist 5 560 000 km vom Neptun"
PRINT"entfernt. Vom dritten neulich erst entdeckten Mond des"
PRINT"Neptun liegen mir noch keine Daten vor."
PRINT"Mehr Informationen über Neptun und seinen Monden"
PRINT"werden den Wissenschaftlern wohl erst dann vorliegen"
PRINT"wenn die Voyager-Raumsonde den Neptun 1989 erreicht hat."
PRINT"M:Menü "
Taste130:
AT$=INKEY$
IF AT$<>"" THEN AT$=UCASE$(AT$)
IF AT$="M" THEN Hauptmenu
GOTO Taste130
Hauptmenu:
CHAIN"Monitorversion"